home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00041_Script_FirstCutScript < prev    next >
Text File  |  1995-05-15  |  2KB  |  83 lines
  1. on exitFrame
  2.   go to marker(0)+2
  3. end
  4.  
  5. on mouseDown
  6.   set ButtonNum=the clickOn
  7.   if ButtonNum>0 then
  8.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  9.     if ButtonNum=3 then BadCut
  10.     if ButtonNum=12 then GoodCut
  11.     if chars(ButtonName,1,6) = "ToMain" then
  12.       if PressBtn(ButtonNum) then
  13.         AllPuppetsOff
  14.         go to marker(0)+3
  15.       end if
  16.     end if
  17.     if chars(ButtonName,1,4) = "Help" then
  18.       if PressBtn(ButtonNum) then
  19.         showHelp
  20.         puppetsprite ButtonNum, true
  21.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  22.         puppetsprite ButtonNum, false
  23.       end if
  24.     end if
  25.   end if
  26. end mouseDown
  27.  
  28. on BadCut
  29.   puppetsound 0
  30.   puppetsound "picksound"
  31.   updateStage
  32.   puppetsound "FirstCutCrunchSound"
  33.   updateStage
  34.   repeat while soundbusy(1)
  35.     nothing
  36.   end repeat
  37.   puppetsprite 3, true
  38.   puppetsprite 12, true
  39.   set the castNum of sprite 3 to the number of cast ("FirstCutDot")
  40.   set the castNum of sprite 12 to the number of cast ("FirstCutDot")
  41.   puppetsound "FirstCutOoohSound"
  42.   updateStage
  43.   repeat with i=8 down to 1
  44.     puppetsprite i+3, true
  45.     put the locH of sprite (i+3) into x
  46.     put the locV of sprite (i+3) into y
  47.     repeat while y<540
  48.       set y=y+5
  49.       set the locV of sprite (i+3) to y
  50.       updateStage
  51.     end repeat
  52.   end repeat
  53.   wait(2)
  54.   puppetTransition 23, 2, 5, true
  55.   set the castnum of sprite 3 to the number of cast ("FirstCutDiamond")
  56.   updateStage
  57.   allPuppetsOff
  58.   updateStage
  59. end BadCut
  60.  
  61. on GoodCut
  62.   puppetsound 0
  63.   puppetsound "PickSound"
  64.   updateStage
  65.   puppetsound "FirstCutYeahSound"
  66.   puppetsprite 3, true
  67.   set the castnum of sprite 3 to the number of cast ("GoodCut")
  68.   repeat with i=4 to 12
  69.     puppetsprite i, true
  70.     set the castNum of sprite i to the number of cast ("FirstCutDot")
  71.   end repeat
  72.   puppetTransition 23, 2, 5, true
  73.   updateStage
  74.   repeat while soundbusy(1)
  75.     nothing
  76.   end repeat
  77.   puppetTransition 23, 2, 5, true
  78.   set the castnum of sprite 3 to the number of cast ("FirstCutDiamond")
  79.   updateStage
  80.   allPuppetsOff
  81.   updateStage
  82. end
  83.